Amiga Collections: Auge 4000/Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip/Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf/Write/WRITE.lha/WRITEV3.371.lha/REXX/SetRexxClipDemo.wrx

Text File | 1993-11-22 | 1KB | 54 lines

/*
 * Script für WRITE V3.025 © 1993 Tim Teulings
 * Dieses Script zeigt den Umgang mit dem SETREXXCLIP-Befehl
 *
 * Mit dem SETREXXCLIP-Befehl lasen ganzen Zeilen oder Buffer direkt
 * ohne Umweg über den Parser, welche ja mit einer internen 256 Zeichen
 * Begrenzung arbeitet, auslesen.
 *
 */

IF ~show('P',"WRITE")
THEN DO
 say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
 exit 10
END

ADDRESS "WRITE"

OPTIONS RESULTS

'ASK "Wollen sie eine Zeile,oder\neinen Buffer auslesen ?" "_Zeile|_Buffer"'

TYP = Result

IF TYP = 0 THEN DO
  'GetNumber "Welche Zeile möchten sie haben ?" 1'
  VAL = Result
END
ELSE DO
  'GetNumber "Welchen Buffer möchten sie haben ?" 0'
  VAL = Result
END

SETREXXCLIP Test TYP VAL
IF RC=0 THEN DO
  String = getclip(Test)
  say String
END
ELSE DO
'MESSAGEOK "SETREXXCLIP gab einen Fehler zurück !"'
END

'ASK "Wollen sie den ganzen\nText auslesen ?" "_Ja|_NEIN !"'
IF Result = 0 THEN DO
  'GETVAR "_Length"'
  Length = Result

  DO x = 1 TO Length
    SETREXXCLIP Zeile 0 x
    String = getclip(Zeile)
    say String
  END
END